use HTML::Encoding qw(encoding_from_xml_document encoding_from_first_chars xml_declaration_from_octets);

open($fp, '<', 'D:\\Data\\Perl\\devel\\TemplateEnginePrptotype\\data\\test_CondContainers.html');
$line = <$fp>;
close($fp);

$test =  xml_declaration_from_octets($line);
print $test;
